Dit voorbeeld maakt gebruik van de functie StrComp om het resultaat van een tekenreeksvergelijking te geven. Als het derde argument 1 is, wordt een tekstvergelijking uitgevoerd; als het derde argument 0 is of ontbreekt, wordt een binaire vergelijking uitgevoerd.
Dim MyStr1, MyStr2, MyComp
MyStr1 = "ABCD": MyStr2 = "abcd" ' Definieert variabelen.
MyComp = StrComp(MyStr1, MyStr2, 1) ' Geeft 0.
MyComp = StrComp(MyStr1, MyStr2, 0) ' Geeft -1.
MyComp = StrComp(MyStr2, MyStr1) ' Geeft 1.